home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / retireze 128_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  231 lines
  1. 10 rem c64/c128 retir'eze
  2. 20 goto1050
  3. 30 open4,4,0:cmd4:goto 60
  4. 40 open4,4,4:cmd4
  5. 50 print chr$(27)"8": rem paper sensor off
  6. 60 printtab(60)name$
  7. 70 printtab(60)date$:print:print
  8. 80 printchr$(14) tab(13)"- retir'eze -"
  9. 90 gosub2080
  10. 100 printchr$(14) tab(06)"a financial retirement program"
  11. 110 if type$="a"then printchr$(15)
  12. 120 if type$="b"then printchr$(129)
  13. 130 print
  14. 140 printtab(32)"(projections)"
  15. 150 gosub2080
  16. 160 fl=infl-cut
  17. 170 w=bu-ben
  18. 180 printtab(9)"invested"tab(8)"earned";
  19. 190 printtab(9)"to/from"tab(9)"income/"tab(10)"year's
  20. 200 [153]" year"[163]6)"funds"[163]8)"interest";
  21. 210 [153][163]8)"invest."[163]8)"benefits"[163]10)"budget"
  22. 220 [153]" ----"[163]4)"--------"[163]7)"--------";
  23. 230 [153] [163]8)"-------"[163]8)"--------"[163]10)"------"
  24. 240 i1[178](p[171](w[173]2))[172]i[173]100
  25. 250 py[178](p[170]i1)[171]w
  26. 260 [153]yr;
  27. 270 p$[178][196]([181](p))
  28. 280 [153][163]11[171][195](p$))p$;
  29. 290 i1$[178][196]([181](i1))
  30. 300 [153][163]15[171][195](i1$))i1$;
  31. 310 w$[178][196]([181](w))
  32. 320 [153][163]15[171][195](w$))w$;
  33. 330 ben$[178][196]([181](ben))
  34. 340 [153][163]16[171][195](ben$))ben$;
  35. 350 bu$[178][196]([181](bu))
  36. 360 [153][163]16[171][195](bu$))bu$
  37. 370 ct[178]ct[170]1
  38. 380 [139] ct[177]22 [167] zz[178]zz[170]1
  39. 390 [139] ct[178]40[137]610
  40. 400 [139] bu[177](p[170]ben)[137]610
  41. 410 [139] p[179][178]bu [167][137]610
  42. 420 [139] p[177][178]1000001 [137]610
  43. 430 [139] yr[178]dne [137]610
  44. 440 [139] yx[177][178](yr[170]50)[137]610
  45. 450 yr[178]yr[170]1
  46. 460 [139] yr[178]cease [167] ben[178]ben[171]lose
  47. 470 [139] yr[178]bgn [167] ben[178]ben[170]gain
  48. 480 [139] yr[178]aity [167] ben[178]ben[171]gain
  49. 490 [139] yr[178]less [167] bu[178]bu[171]x
  50. 500 w[178]bu[171]ben
  51. 510 p[178]py
  52. 520 [139] yr[178]yer [167] p[178]p[170]xtra
  53. 530 [139] yr[178]what [167] p[178]p[171]amt
  54. 540 bu[178]bu[170](bu[172]fl[173]100)
  55. 550 w[178]w[170]bu[172](fl[173]100)
  56. 560 ben [178] ben[170](ben[172]up[173]100)
  57. 570 page[178]ct[170]16
  58. 580 [139] type$[179][177]"c"[167] page [178] 0
  59. 590 [139] page[178]38[137]1900
  60. 600 [137]240
  61. 610 yr[178]yr[170]1
  62. 620 [139] type$ [179][177] "c" [137] 640
  63. 630 [153][199](27)"4"
  64. 640 [141]2080
  65. 650 [139] xtra[177]0[167]660:[213]670
  66. 660 [153][163]15)"$";xtra;"lump-sum added to invested funds in";yer
  67. 670 [139] amt[177]0[167]680:[213]690
  68. 680 [153][163]15)"$";amt;"from investments cashed-in in";what
  69. 690 [139] lose[177]0[167]700:[213]710
  70. 700 [153][163]15)"$";lose;"loss in income/benefits starting in";cease
  71. 710 [139] gain[177]0[167]720:[213]730
  72. 720 [153][163]15)"$";gain;"more in income/benefits starting in";bgn
  73. 730 [139] aity[177]0[167] 740:[213]750
  74. 740 [153][163]15)"$";gain;"less in income/benefits starting in";aity
  75. 750 [139] x[177]0[167]760:[213]770
  76. 760 [153][163]15)"$";x;"less yearly budget starting in";less
  77. 770 [141]2080
  78. 780 [139] p[179][178]bu [137]830
  79. 790 [139] bu[177](p[170]ben)[137]830
  80. 800 [139] p[177][178]1000001[137]850
  81. 810 [139] ct [177][178] 40 [137] 850
  82. 820 [139] yr [177][178] dne [167] 850
  83. 830 [153] " investments depleted by year"yr;"- income/benefits may continue."
  84. 840 [141]2080
  85. 850 [153][163]42)"estimated r.o.i. -";i"%"
  86. 860 [153][163]42)"annual inflation rate -"infl"%"
  87. 870 [153][163]42)"annual cut-back in expenditures -"cut"%"
  88. 880 [153][163]42)"annual c.o.l.a. to benefits -";up"%"
  89. 890 [141]2080
  90. 900 [153][163]3)" retir'eze does not compensate for any income, benefits";
  91. 910 [153]" or cost-of-living
  92. 920 print"(cola) adjustments that are not documented at this time."
  93. 930 print"retir'eze computed figures represent approximations and/or ";
  94. 940 print"extrapolations based on program formulas."
  95. 950 if ct>22goto2010
  96. 960 gosub2080
  97. 970 printtab(5)"prepared by: ";prep$
  98. 980 printtab(5)"(c) copyright 1986 - c. frank schulenberg
  99. 990 [139] type$ [179][177]"c" [137] 1020
  100. 1000 [153][199](27)"5":[143] 5=italics off
  101. 1010 [153][199](27)"@":[143] @=reset off.
  102. 1020 [129]t[178]1[164]4:[153]:[130]
  103. 1030 [152]4:[160]4
  104. 1040 [128]
  105. 1050 [153]"load":[153]
  106. 1060 [153][163]6)"financial retirement program"
  107. 1070 [141]2080
  108. 1080 [153][163]5)"written by c. frank schulenberg
  109. 1090 gosub2080
  110. 1100 print"this c-64/c-128 program evaluates       finances prior to retire";
  111. 1110 print"ment. answer    all questions. do not use percentage    signs (%)";
  112. 1120 print" or commas."
  113. 1130 gosub2080
  114. 1140 print"examples: enter 13, not 13%"
  115. 1150 printtab(10)"enter 10000, not 10,000
  116. 1160 [141]2080
  117. 1170 [133]"enter your name ";name$:[139]name$[178]""[167]1170
  118. 1180 [141]2080
  119. 1190 [133]"today's date ";date$:[139]date$[178]""[167]1190
  120. 1200 [141]2070
  121. 1210 [133]"in what year do you plan to retire";yr:[139]yr[178]0[167]1210
  122. 1220 [141]2080
  123. 1230 [133]"what do you want your retirement income to be ";bu:[139]bu[178]0[167]1230
  124. 1240 [141]2070
  125. 1250 [133]"how much money will you have invested onretirement ";p:[139]p[178]0[167]1250
  126. 1260 [141]2080
  127. 1270 [133]"what % return will these investments    yield";i
  128. 1280 [141]2070
  129. 1290 [133]"will you get a lump sum bonus during    retirement (y/n) ";future$
  130. 1300 [139] future$[178]"n"[137]1350
  131. 1310 [141]2080
  132. 1320 [133]"in what year will you receive it ";yer
  133. 1330 [141]2080
  134. 1340 [133]"enter the amount of the bonus";xtra
  135. 1350 [141]2070
  136. 1360 [133]"will you cash-in investments when       retired (y/n)";cash$
  137. 1370 [139] cash$[178]"n"[137]1430
  138. 1380 [141]2080
  139. 1390 [133]"how much will you cash-in ";amt
  140. 1400 [141]2080
  141. 1410 [133]"what year will you cash-in ";what
  142. 1420 [141]2080
  143. 1430 [141]2070
  144. 1440 [153]"total all yearly pensions, annuities,   social security, benefits,";
  145. 1450 [133]" etc., that   you will receive on retirement ";ben
  146. 1460 [141]2080
  147. 1470 [153]" will a significant part of the income  from these benefits ";
  148. 1480 [133]"cease in the future (y/n)";yno$
  149. 1490 [139] yno$[178]"n" [137]1550
  150. 1500 [141]2080
  151. 1510 [133]"in what year will the benefits decrease";cease
  152. 1520 [141]2080
  153. 1530 [133]"enter the amount of this loss";lose
  154. 1540 [141]2070
  155. 1550 [153]"will you begin to receive a new source  of benefit";
  156. 1560 [133]" income during retirement ";nw$
  157. 1570 [139] nw$[178]"n" [137] 1640
  158. 1580 [141]2080
  159. 1590 [133]"what year will new benefits begin";bgn
  160. 1600 [141]2080
  161. 1610 [133]"enter the annual amount of this increase";gain
  162. 1620 [141]2080
  163. 1630 [133]"if time-limited, in what year will this increase end";aity
  164. 1640 [141]2070
  165. 1650 [153]"what % of your annual income/benefits doyou estimate will";
  166. 1660 [133]" reflect a 'cola'      increase (0%,1%,2%?)";up
  167. 1670 [141] 2070
  168. 1680 [153]"what do you expect the annual inflation rate to be ";
  169. 1690 [133]"during retirement ";infl
  170. 1700 [141]2070
  171. 1710 [133]"what percent will you reduce expenses   each year (2%,1%,0%)";cut
  172. 1720 [141]2070
  173. 1730 [153]"do you expect reductions in expenses to reduce annual budget";
  174. 1740 [133]" such as loans paid,etc. (y/n)";rpt$
  175. 1750 [139] rpt$[178]"n" [137]1800
  176. 1760 [141]2080
  177. 1770 [133]"how much will this reduce your annual   budget";x
  178. 1780 [141]2080
  179. 1790 [133]" in what year will this budget decrease occur ";less
  180. 1800 [141]2070
  181. 1810 [153]"to end the program after specific year, input year.";
  182. 1820 [133]" otherwise, press <return>.";dne
  183. 1830 [141]2070
  184. 1840 [133]"name of preparer:";prep$
  185. 1850 [141]2070
  186. 1860 [133]"would you like to correct the answers";ans$
  187. 1870 [139] ans$[178]"y" [167] 1050
  188. 1880 [137] 2090
  189. 1890 [141]2070
  190. 1900 [141]2080:[141]2080:
  191. 1910 [153][163]17)"(retir'eze program print-out continues on page 2.)"
  192. 1920 [153][199](12)
  193. 1930 [153]
  194. 1940 page[178]0
  195. 1950 zz[178]zz[170]27
  196. 1960 [153][163]35) "- page 2 -"
  197. 1970 [141]2080:[141]2080
  198. 1980 [153][163]26) [199](14)"- retir'eze -"
  199. 1990 [141]2080
  200. 2000 [137]180
  201. 2010 [139] type$ [179][177] "c" [137] 960
  202. 2020 xx[178]50[171]zz
  203. 2030 [129] yy[178]1[164]xx
  204. 2040 [153]
  205. 2050 [130]yy
  206. 2060 [137]970
  207. 2070 [153]"load":[153]:[142]
  208. 2080 [153]:[142]
  209. 2090 [143] printers
  210. 2100 [153]"load"
  211. 2110 [153] [163]2)"enter the letter (a,b,c) for"
  212. 2120 [153]" your printer..."
  213. 2130 [141]2080:[141]2080
  214. 2140 [153] [163]3) "a = mps-803/mps-1000/1525"
  215. 2150 [141]2080
  216. 2160 [153] [163]3) "b = 1526/mps-802"
  217. 2170 [141]2080
  218. 2180 [153] [163]3) "c = epson/star/ascii"
  219. 2190 [141]2080
  220. 2200 [133]"printer ";type$
  221. 2210 [141] 2080
  222. 2220 [139] type$[178]"a" [176] type$[178]"b" [137]30
  223. 2230 [139] type$[178]"c" [137] 40
  224. 2240 [139] type$ [179][177] "a" [137] 2250
  225. 2250 [139] type$ [179][177] "b" [137] 2260
  226. 2260 [139] type$ [179][177] "c" [137] 2270
  227. 2270 [153